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; FORTRAN COMPATIBILITY = RADIX 56 TO AS 15- maby 3:88:11 rete Macro V04-00 Page 1 
6-SEP=1984 10:53:1 FORRTL.SRCJCOMRSOASC .MAR; 1 (1) 
-TITLE Compnagnse ; FORTRAN COMPATIBILITY = RADIX 50 TO ASCII CONVERSI 
IDENT /1-003/ ; File: COMRSOASC.MAR Edit: SBL1003 


CNAME WN O ODNAUE WN $$ OS ODNA UE WIN OC ODONAU EW OOONOUE Wn 


BPP EEE EE EAN IWIN nnn no nonononunnn = es oe os es es ae 
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SeSe SSeS SoS ose ae 


® 
* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
. ALL RIGHTS RESERVED. ” 

& 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
® ONL , RDAN T . 
® * 
* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
® * 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
« CORPORATION. * 
& ® 
® a 
& t 
® ® 
* ® 
**® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Meri ive FORTRAN COMPATIBILITY LIBRARY 
"ABSTRACT: 


RSOASC is a FORTRAN callable procedure to convert radix-50 strings 
into ASCII Hollerith strings. 


VERSION: 0 
HISTORY: 


AUTHOR: 
Peter Yuo, 9-Sep-77: Version 0 


MODIFIED BY: 


AN COMPATIBILITY = RADIX 38 18 TO AS 15-SEP ath 9 $3: $3: i} AX/VMS Macro V04-00 Page 3 
; Detailed Current Edit History 6-SEP-19 :55:1 FORRTL.SRCJCOMRSOASC.MAR; 1 (2) 


9 .SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 01 of RSOASC 


Correct constant values for EDIV instructions 

= Chan ‘. file name to COMRSOASC.MAR, PSECT to F4PCOMPAT. ie Aree tie 
- q don't use no_output_ char for input count! JMT 13-Feb-78 

- Up age,version number” and copyright per i§e- JBS 16-NOV-78 

- Add PSECT directive. 21 

- Fix bu where pergest Seentels RAD50O value was considered 

invali SBL 6-May-80 
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COMSRSOASC ; FORTRAN COMPATIBILITY = RADIX sh TO AS iF as tbs 9 3:48:11 AX/VMS Macro v04-00 Page 4 
1-003 HECLARATIONS 6-SEP-1984 7:53:13 FORRTL.SRCICOMRSOASC.MAR; 1 (3) 
7 17 =«+121 -BYTE *0127 : 27 = ‘w' 
8 3 1 g -BYTE *0150 ; 30 = ‘x’ 
1 1 -BYTE *0131 ; 31 = ty’ 
A 1A 124 BYTE *0132 : ¢ o ge 
4 1B 125 BYTE *044 3 - '$' 
E | ee § Vis = “eS s 36 < °,° 
F 1D 361 -BYTE ‘*07 ; 35 = unused 
0 1E 128 Bvt *060 3 § - ‘*Q' 
1 1F 129 -BYT *061 § - ‘1° 
§ 0 130 -BYTE *06 :; 40 - 1g 
a a Pee: 
5 6 5 1 5 -BYTE *065 ; 2g - ‘5! 
: 024 134 -BYTE *06 3; 44 - 9. 
025 135 -BYTE 208 2 63 = *7* 
8 00 § 138 BYTE *070 : +8 - ‘g° 
9 00 1 -BYTE *071 : 47 - "9° 
00 s 133 
00 139 ; 
+ : 179 ; REGISTER USAGE: 
0028 136 ; RO:R1 = current word for pryceee*ns ( use quadword in order to use EDIV) 
00 : 1435 ; R2 - holds remainder for EDIV 
00 144 ; R3 - CHARS_REM, remaining number of output chars to produce 
OSE 145 ; R4 = NEXT_INPUT POSITION, next radix-50 input position 
Bee is ; RS = NEXT_OUTPUT_POSITION, next ASCII output position 


16 
; FORTRAN typi he = RADIX sh TO AS iF om eb 9 epee it AX/VMS Macro V04-00 
RSOASC = RADIX 50 TO ASCII CONVERSION RO 6=SEP-1984 7:55:13 CFORRTL.SRCIJCOMRSOASC.MAR; 1 
0 133 ~SBTTL RSOASC = RADIX 50 TO ASCII CONVERSION ROUTINE 
° 151 ;+¢ 
: ¢ ; FUNCTIONAL DESCRIPTION: 
154 ; Algoritmic steps: 
0 13 § 1) "Initialization 
0 1 § : CHARS_REM = no_output_char.rw.r 
0 157 ; NEXT_INPUT_POSITION = radix50O_array.rbu.ra 
00 158 ; NEXT-OUTPUT_ POSITION = ascii_array.wbu.ra 
00 159 ; ¢ If CRARS_REM =< 0 then DONE 
0 160 ; ) Get current word for processing 
0 161 ; 4) If overflow then (output '?77?', go to step 6) 
0 19¢ $ 5) Do conversion 
00 163 ; Note] n is a word value, so longword division will not produce 
00 164 ; negative results 
00 165 ; a. (Let nm = a2e50**2 + a1 * 50 + a0) 
0028 196 : Divide n by 50*#2, (nm = gi#50##2 + r1) 
0028 167 ; ASCII_TABLQ1) is ist asc char to output 
0028 168 ; b. Divide rib - (ris q #50 + r2) 
0028 1s? : ASCII_TAB ag} is 2nd ASCII char to output 
0028 170; ASCII TABLr2] is 3rd_ASCII char to output 
00 : 171 ; 6) CHARS_REM = CHARS_REM -3 
00 126 : 7) Go back to step 2 
0028 173; 
8p : re 3 CALLING SEQUENCE: 
0028 176; CALL RSOASC (no_output_char.rw.r, radix50_array.rbu.ra, 
00 4 177 ; ascii_array.rbu.ra) 
00 178 ; 
0028 179; 
0028 180 ; INPUT PARAMETERS: 
0028 181; 
0028 136 3 no_output_char.rw.r ; the max number of output chars to produce 
boSe 137 5 radixSU_array.rbu.ra ; address of radix-50 input location 
OSs 185 ; IMPLICIT INPUTS: 
00 186 ; NONE 
0028 187; 
0028 188 ; OUTPUT PARAMETERS: 
0028 189; ne : 
O 130 ; ascii_array.wbu,ra ; addres of ascii output location 
88 136 ; IMPLICIT OUTPUTS: 
193 ; NONE 
00 194 ; 
00 195 ; COMPLETION CODES: 
00 128 : NONE 
bp 197 ; 
0 198 ; SIDE EFFECTS: 
44 199 ; NONE 
0 00 ; 
058 508 
0 Be 
403C 0 5 -ENTRY RSOASC, “M<IV, R2, R3, R4, RSD 
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50 TO AS % -§ 
RSION RO 6S 


: Initialization 


> If CHARS_REM <= 0, then DONE 


AGAIN: 


MOVZWL 


TSTL 
BLEQ 


MOVZWL 


radi arra 


R3 
DONE 


(R4)+, RO 


SEP-1984 
EP-1 984 


ano 7330 arr vate a 


(AP) 


ascii_array(AP), as 
R1 


Get current word for processing 


: If overflow then output '2??' 


CMPL 


BLEQ 
MOVL 


RO, #*°0174777 


GOOD 
#°0134745, RO 


3 
3; Do actual conversion 


R3 


DONE 
#L_50_POWER_2, RO, R2, Rb 


ASCII_TABCR2], 
R53 


any) 

#*0 0, RO, R2, 
AgCEL TABCR2D, 
R 


DONE 
ASCII_TABCROJ, 
AGAIN 


(R5)+ 


RO 
(R5)+ 


(R5)+ 


10: 


R3 


$8: i} eg Macro V04-00 
75 FORRTL.SRCJCOMRSOASC.MAR; 1 


; standard call-by-reference entry 
; enable integer overflow 


CHARS_REM 
NEXT SNPUT POSITION 
NEXT_OUTPUT_POSITION 
lways zero 


3 R3 
3: RS 
> RS 

R1 


RO/R1 = current word for processi 
use quadword for EDIV 


: 174777(octal) is Largest radix 50 
; value in a wor 
; branch if youve is good 


; RADSO for 


: dec byte count 
and quit if it was 0 


divide current word (n) in RO/R1 
S0(octal)* 

Roe’ vw, * SO Coctal)+s2 + rl 
output "Lactucsualiing ascii char 
dec byte count again 

and _branch if it was 0 
ahs qe * 50(octal) + r2 
0/R1 = ql, 2, RO = 


tt = q2, R r2 
output se 
last byte to tor tate RADSO word 
done i s 0 
output 3rd thee 


Sete Se Se Se Ge Se Ge Ge Se te Ge Se 


get next input "RADSO word 


ng 


by 


7 
(4) 


paloee FOrses1s PROAMTS cae TeoMesOnec.mar;1 2% 


@ 
—O 
— 
LL 
a 
= 
oO 
I 
z 
<x 
a 
e 
< 
Oo 


ASOASC RADIX 


COMSRS5OASC ; FORTRAN COMPATIBILITY = RADIX 5 AS iF a/b 9 $3338: 1 
Symbol table 6-SEP=1984 10:55:1 


AGAIN 00000038 R 01 
ASCII_ARRAY = BOO pC OOS 
ASCI1_TAB 00000 90 8 01 
0000007A R 01 
QOOOOO4F R 01 
L_50_ POWER.2 = 00000640 
NO_OOTPUT_CHAR = 00000004 
RSOASC 00000028 RG 01 
RADIXSO_ARRAY = 00000008 
OA wen moma aa sea am oa 
! i _Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 ( 0.) OO ¢ QO.) NOPIC USR CON ABS LCL 
“F4PCOMPATSCODE 00000078 (¢ 123.) O01 ¢ 1.) PIC USR CON REL LCL 
ee ee 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.10 00:00:01.11 
poanene processing 105 00:00:00.51 00:00:05.65 
70 00:00:00.71 00:00:02.52 
Peer table sort 0 00:00:00.01 00:00:00.01 
Pass 2 57 00:00:00.48 00:00:02.52 
Symbol table output 00:00:00.02 00:00:00.02 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 268 00:00:01.85 00:00:11.86 


The working set Limit was 900 pages. 

3027 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 9 non-local and 0 local symbols. 
268 source Lines were read in Pass 1, prodyc ing object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


Peewee ececeoocceccoccococccns} 


Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET.MLB;2 0 
0 GETS were required to define ) macres: 


There were no errors, warnings or information messages. 


Yet ee cro V04-00 P 
FORRTL.SRC Cie COMRSOASC .MAR; 1 


eet NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC BYTE 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COMRSOASC/OBJ=OBJ$:COMRSOASC MSRC$:COMRSOASC/UPDATE=(ENH$: COMRSOASC) 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 
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